inherited FRM_PesquisaIndicacaoUso: TFRM_PesquisaIndicacaoUso
  Left = 463
  Top = 250
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  inherited gbPadrao: TAdvGroupBox
    inherited edtPesquisar: TAdvEdit
      OnKeyDown = edtPesquisarKeyDown
    end
    inherited GridPesquisar: TJvDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'DESCRICAO'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Segoe UI'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = 'Descri'#231#227'o da Indica'#231#227'o de Uso'
          Width = 405
          Visible = True
        end>
    end
    inherited pnlTitulo: TPanel
      Caption = 'Pesquisar Lista de Indica'#231#227'o de Uso'
    end
  end
  inherited sqlPesquisar: TSQLQuery
    SQL.Strings = (
      'select'
      '    i.cod_indicacao,'
      '    i.descricao'
      'from f_indicacao_uso i'
      'order by i.descricao')
  end
  inherited dspPesquisar: TDataSetProvider
    Top = 160
  end
  inherited cdsPesquisar: TClientDataSet
    Top = 160
    object cdsPesquisarCOD_INDICACAO: TIntegerField
      FieldName = 'COD_INDICACAO'
      Required = True
    end
    object cdsPesquisarDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
  end
  inherited dsPesquisar: TDataSource
    Top = 160
  end
  object sqlPesquisarIndicacaoForma: TSQLQuery
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'forma'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  i.lig_cod_indicacao as COD_INDICACAO,'
      '  u.descricao as DESCRICAO'
      'from f_forma_indicacao_uso i'
      
        'left join f_indicacao_uso u on (u.cod_indicacao = i.lig_cod_indi' +
        'cacao)'
      'where i.lig_cod_forma = :forma'
      'order by u.descricao')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 8
    Top = 176
  end
end
